10 REM  FIVE SCREEN WIPES
15 REM  BY BRIAN KISSINGER                 :
20 PRINT"[147]";:FORJ=0TO29:PRINT"THIS IS A VERY CLUTTERED SCREEN  ";:NEXT
25 PRINT"ENTER 1-6[146]":WAIT198,7:GETA$:ONASC(A$)-48GOTO40,50,60,70,80,90:GOTO25
35 REM 1 - WIPES SCREEN UPWARD
40 FORJ=24TO0STEP-1:POKE781,J:SYS59903:NEXT:PRINTCHR$(147):END
45 REM 2 - WIPES SCREEN DOWNWARD
50 FORJ=0TO24:POKE781,J:SYS59903:NEXT:PRINTCHR$(147):END
55 REM 3 - WIPES TOP/BOTTOM TO CENTER
60 FORJ=0TO12:POKE781,J:SYS59903:POKE781,24-J:SYS59903:NEXT:PRINTCHR$(147):END
65 REM 4 - WIPES CENTER TO TOP/BOTTOM
70 FORJ=12TO0STEP-1:POKE781,J:SYS59903:POKE781,24-J:SYS59903:NEXT:PRINT"[147]":END
75 REM 5 - WIPES LIKE CLOSING BLINDS
80 FORJ=0TO4:FORX=0TO4:POKE781,X*5+J:SYS59903:NEXT:NEXT:PRINTCHR$(147):END
85 REM 6 - WIPES LIKE OPENING BLINDS
90 FORJ=1TO5:FORX=1TO5:POKE781,X*5-J:SYS59903:NEXT:NEXT:PRINTCHR$(147):END